home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / BACKUP / MEMSZ160.ZIP;1 / CATALA.CMD < prev    next >
Encoding:
Text File  |  1993-03-03  |  1.5 KB  |  55 lines
  1. /* CATALA.CMD: Instal˙laci¢ de MEMSIZE en catalÖ */
  2.  
  3. /* CÖrregar REXXUTIL */
  4. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs';
  5. Call SysLoadFuncs
  6.  
  7. Call SysCls
  8. Say 'Instal˙laci¢ de MEMSIZE...';
  9. Say '';
  10.  
  11. Say 'Si us plau, escribiu el nom complet del directori on voleu';
  12. Say '  instal˙lar el programa MEMSIZE (per defecte Çs C:\OS2\APPS): ';
  13. Pull Directory
  14. If Directory = "" Then Directory='C:\OS2\APPS'
  15. Result = SysFileTree(Directory, 'Dirs', 'D')
  16. If Dirs.0 = 0 Then Call SysMkDir Directory;
  17.  
  18. Say "Voleu instal˙lar-lo de forma que s'executi automÖticament a l'arrencar? (S/N)";
  19. Pull YesNo
  20. If YesNo = "S" Then
  21.   Do
  22.   Folder='<WP_START>'
  23.   Say "L'objecte es copiarÖ a la carpeta Inici.";
  24.   End
  25. Else
  26.   Do
  27.   Folder='<WP_DESKTOP>'
  28.   Say "L'objecte es copiarÖ a l'escriptori.";
  29.   End
  30.  
  31. Say 'Copiant MEMSIZE al directori ' Directory '...';
  32. Say '';
  33. Language='CATALA'
  34. Copy MEMSIZE.EXE Directory
  35. Copy Language".DLL" Directory"\MEMSIZE.DLL"
  36. Copy Language".HLP" Directory"\MEMSIZE.HLP"
  37.  
  38. Say "Creant l'objecte del programa...";
  39. Say ''; 
  40.  
  41. Type='WPProgram'
  42. Title='Recursos del Sistema'
  43. Parms='MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES'
  44.  
  45. Result=SysCreateObject(Type,Title,Folder,Parms,'ReplaceIfExists');
  46.  
  47. If Result=1 Then 
  48.   Call charout ,"...   L'objecte s'ha creat.  Final"
  49. Else             
  50.   Call charout ,"...   No s'ha pogut crear l'objecte! Estat final=" Result
  51.  
  52. Exit
  53.  
  54. 
  55.